COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	IDAS.424
C00012 ENDMK
C⊗;
IDAS.424
***** MACLISP ****** LISP INTERPRETER AND SYSTEM *************
ASSEMBLING MACLISP -- INITIAL SWITCH VALUES (*=EXPERIMENTAL):
  ITS=0
  TOPS10=0
  TOPS20=0
 SAIL=0
* TENEX=0
 CMU=0
  ML=0
 BIGNUM=1
 OBTSIZ=777
  JOBQIO=1
 HNKLOG=11
  USELESS=1
 PDLBUG=0
* DBFLAG=0
 CXFLAG=0
* NARITH=0
* SFA=1
REDEFINITIONS:
TY: .INSRTed, end input with ↑C
L==1



AIL==1?SFA==1



	IFE ITS => JOBQIO==:0
IFG SAIL*<6-NIOBFS> => NIOBFS==:6
ACLISP VERSION 2097 ASSEMBLED ON ITS AT MC
FLUSHING ITS SYMBOL DEFINITIONS
   ==> INSERTED:  ITSDFS 6
LUSHING ITS BIT DEFINITIONS
    ==> INSERTED:  BITS 69
MAKING SAIL SYMBOL DEFINITIONS
   ==> INSERTED:  SAIDFS 15
AKING SAIL BIT DEFINITIONS
    ==> INSERTED:  DECBTS 232
    ==> INSERTED:  DEFNS 239
    ==> INSERTED:  MACS 77
SHARP1+1	4157	 2.    37-022	###### HOW TO SHARE WITH "PURQIO" FILE?
	***** FIVE "ZERO" (LOW IMPURE) SEGMENTS
	***** TWO SEGMENT TABLE SEGMENTS
    ==> INSERTED:  ERROR 152
P0:  3124	[ERROR HANDLERS AND MESSAGES]
    ==> INSERTED:  STATUS 246
STBS+123	416124	 0.   130-006	CURSOR	Multiply defined
READTABLE LENGTH = 1010
	P1:  15607	[TOPLEVEL, COMMON, AND RANDOM STUFF]
	P2:  3404	[PRINT,TYO,EXPLODE,FLATC,BAKTRACE,ETC]
   ==> INSERTED:  PRINT 303
	P3:  1357	[UTAPE, LAP, AND AGGLOMERATED SUBRS]
    ==> INSERTED:  ULAP 145
	P4:  2244	[ARITHMETIC SUBROUTINES]
    ==> INSERTED:  ARITH 93
	P5:  1751	[BIGNUM-ONLY ARITHMETICS]
    ==> INSERTED:  BIGNUM 19
	P6:  2650	[EVAL, APPLY, STUFF OPEN-CODED BY COMPLR]
	P7:  2111	[GARBAGE COLLECTOR]
	P10:  1174	[MEMORY MANAGEMENT STUFF]
    ==> INSERTED:  GCBIB 255
	P11:  3550	[HIRSUTE READER, MAKNAM, ETC.]
    ==> INSERTED:  READER 268
	P12:  1502	[ARRAY STUFF]
    ==> INSERTED:  ARRAY 92
	P13:  2356	[FASLOAD]
   ==> INSERTED:  FASLOA 263
C:QIO 724 L;
FASLP1+25	452407	 3.    21-203	######
###### RESTORE REF DATE FOR SAIL PROBEF?
OPEN9D+14	453350	 3.    34-059	###### IMAGE TTY OUTPUT?
LSTNS+3	453560	 3.    37-034	###### REALLY OUGHT TO BE SMARTER
TTYMO2+5	454476	 3.    50-028	###### SAIL TTYMOR?
	P14:  5147	[NEW I/O PACKAGE]
    ==> INSERTED:  QIO 724
P15:  3653	[INTERRUPT AND UUO HANDLERS]
	LENGTH OF PATCH AREA = 601
***** 62 (OCTAL) SYSTEM SEGMENTS
***** ONE SAR SEGMENT [756 UNUSED WORDS]
***** ONE IMPURE SYMBOL BLOCK SEGMENT [740 UNUSED WORDS]
	P16:  466732	[SYSTEM ATOMS AND STUFF]
	***** ONE VALUE CELL SEGMENT [616 UNUSED WORDS]
	***** TWO SYMBOL HEADER SEGMENTS [455 UNUSED WORDS]
***** THREE PURE SYMBOL BLOCK SEGMENTS
MC:STRUCT 635 L;
	467373	 3.    25-036	######
###### 3=TOO MANY PURE FIXNUMS (PFXEST=3200)
HIGHEST NLISP INUM=777
LOWEST NLISP INUM=-376
***** FOUR PURE FIXNUM SEGMENTS
***** FIVE PURE LIST SEGMENTS [176 UNUSED WORDS]
	***** ZERO PURE FLONUM SEGMENTS
	***** TWO IMPURE LIST SEGMENTS [321 UNUSED WORDS]
***** ONE IMPURE FIXNUM SEGMENT [733 UNUSED WORDS]
***** ONE IMPURE FLONUM SEGMENT [777 UNUSED WORDS]
	***** ONE BIGNUM SEGMENT [773 UNUSED WORDS]
TIME TO MAKE INITIAL STRUCT, PASS 1 = 105 SECS
    ==> INSERTED:  STRUCT 635
	***** ONE BIT BLOCK SEGMENT
   ==> INSERTED:  ALLOC 279

**** MACLISP ****** LISP INTERPRETER AND SYSTEM *************
SHARP1+1	4157	 2.    37-022	###### HOW TO SHARE WITH "PURQIO" FILE?
	***** FIVE "ZERO" (LOW IMPURE) SEGMENTS
	***** TWO SEGMENT TABLE SEGMENTS
C:ERROR 152 L;
LCK0+2		401632	 1.    19-036	ALARMC	Undefined
    ==> INSERTED:  ERROR 152
	P0:  3124	[ERROR HANDLERS AND MESSAGES]
    ==> INSERTED:  STATUS 246
MC:*LISP 097 L;
STBS+123	416124	 0.   130-006	CURSOR	Multiply defined
	READTABLE LENGTH = 1010
	P1:  15607	[TOPLEVEL, COMMON, AND RANDOM STUFF]
P2:  3404	[PRINT,TYO,EXPLODE,FLATC,BAKTRACE,ETC]
    ==> INSERTED:  PRINT 303
	P3:  1357	[UTAPE, LAP, AND AGGLOMERATED SUBRS]
   ==> INSERTED:  ULAP 145
	P4:  2244	[ARITHMETIC SUBROUTINES]
    ==> INSERTED:  ARITH 93
	P5:  1751	[BIGNUM-ONLY ARITHMETICS]
    ==> INSERTED:  BIGNUM 19
P6:  2650	[EVAL, APPLY, STUFF OPEN-CODED BY COMPLR]
	P7:  2111	[GARBAGE COLLECTOR]
	P10:  1174	[MEMORY MANAGEMENT STUFF]
   ==> INSERTED:  GCBIB 255
	P11:  3550	[HIRSUTE READER, MAKNAM, ETC.]
    ==> INSERTED:  READER 268
	P12:  1502	[ARRAY STUFF]
    ==> INSERTED:  ARRAY 92
	P13:  2356	[FASLOAD]
    ==> INSERTED:  FASLOA 263
MC:QIO 724 L;
FASLP1+25	452407	 3.    21-203	######
###### RESTORE REF DATE FOR SAIL PROBEF?
PEN9D+14	453350	 3.    34-059	###### IMAGE TTY OUTPUT?
LSTNS+3	453560	 3.    37-034	###### REALLY OUGHT TO BE SMARTER
TYMO2+5	454476	 3.    50-028	###### SAIL TTYMOR?
	P14:  5147	[NEW I/O PACKAGE]
    ==> INSERTED:  QIO 724
MC:*LISP 097 L;
SAIDSP+12	455550	 0.   171-194	CLOCKI	Undefined
	P15:  3653	[INTERRUPT AND UUO HANDLERS]
	LENGTH OF PATCH AREA = 601
	***** 62 (OCTAL) SYSTEM SEGMENTS
***** ONE SAR SEGMENT [756 UNUSED WORDS]
	***** ONE IMPURE SYMBOL BLOCK SEGMENT [740 UNUSED WORDS]
	P16:  466732	[SYSTEM ATOMS AND STUFF]
***** ONE VALUE CELL SEGMENT [616 UNUSED WORDS]
	***** TWO SYMBOL HEADER SEGMENTS [455 UNUSED WORDS]
***** THREE PURE SYMBOL BLOCK SEGMENTS
MC:STRUCT 635 L;
		467373	 3.    25-036	######
	###### 3=TOO MANY PURE FIXNUMS (PFXEST=3200)
HIGHEST NLISP INUM=777
	LOWEST NLISP INUM=-376
***** FOUR PURE FIXNUM SEGMENTS
***** FIVE PURE LIST SEGMENTS [176 UNUSED WORDS]
***** ZERO PURE FLONUM SEGMENTS
***** TWO IMPURE LIST SEGMENTS [321 UNUSED WORDS]
***** ONE IMPURE FIXNUM SEGMENT [733 UNUSED WORDS]
***** ONE IMPURE FLONUM SEGMENT [777 UNUSED WORDS]
***** ONE BIGNUM SEGMENT [773 UNUSED WORDS]
TIME TO MAKE INITIAL STRUCT, PASS 2 = 106 SECS
    ==> INSERTED:  STRUCT 635
***** ONE BIT BLOCK SEGMENT
    ==> INSERTED:  ALLOC 279

Constants area inclusive
From	To
4411	4424
402262	403127
20335	420736
424217	424342
425654	425721
430067	430165
432125	432136
434705	435006
437015	437117
440251	440313
444010	444063
445511	445565
450076	450143
455037	455312
461022	461165
32166	32410
Run time = 5:07.19
10176 Symbols including initial ones (63% used)